#!/usr/bin/env perl 
#===============================================================================
#
#         FILE: Getopt_Std.pl
#
#        USAGE: ./Getopt_Std.pl  
#
#  DESCRIPTION: 
#
#      OPTIONS: ---
# REQUIREMENTS: ---
#         BUGS: ---
#        NOTES: ---
#       AUTHOR: YOUR NAME (), 
# ORGANIZATION: 
#      VERSION: 1.0
#      CREATED: 07/31/2013 03:24:41 AM
#     REVISION: ---
#===============================================================================

use strict;
use warnings;
use utf8;

use Getopt::Std;

my %opts;
getopts("c:hv", \%opts);

foreach(keys %opts)
{
        /c/ && print "welcome to ", $opts{$_} || "ChinaUnix", "!\n";
        /h/ && print "Usage : $0 -[hv] -[c msg] \n";
        /v/ && print "This is demo, version 0.001.001 built for $^O\n";
}
exit 0;
